#N canvas 59 47 456 501 16;
#X obj 72 9 inlet;
#X text 131 10 <- root;
#X text 306 9 <- mode;
#X obj 246 8 inlet;
#X obj 86 447 outlet;
#X obj 265 112 list;
#X obj 99 144 t b f;
#N canvas 54 66 724 431 mode 0;
#X obj 85 194 rotate;
#X obj 20 17 inlet;
#X obj 147 43 loadbang;
#X text 220 159 (alternative tonal layouts could be provided);
#X obj 91 374 outlet;
#X text 87 18 <- note to start walking from;
#X obj 100 308 list prepend 0;
#X obj 129 76 t b b;
#X msg 93 124 0;
#N canvas 336 211 450 300 add-steps 0;
#X obj 99 260 outlet;
#X obj 147 162 +;
#X obj 197 163 f;
#X obj 52 13 inlet;
#X obj 52 51 t a b;
#X msg 58 104 0;
#X obj 98 220 reduce;
#X obj 124 86 map;
#X connect 1 0 2 0;
#X connect 1 0 6 1;
#X connect 2 0 1 1;
#X connect 3 0 4 0;
#X connect 4 0 7 0;
#X connect 4 1 5 0;
#X connect 5 0 1 1;
#X connect 6 0 0 0;
#X connect 7 0 6 0;
#X connect 7 1 1 0;
#X restore 79 250 pd add-steps;
#X msg 273 71 2 1 2 2 1 2 2;
#X text 297 125 <- steps from c (because midi 0 is c);
#X msg 272 45 -*-*--*-*-*-;
#X msg 148 124 2 2 1 2 2 2 1;
#X text 227 238 0 is major (waling from c);
#X text 228 202 9 is minor (walking from a);
#X connect 0 0 9 0;
#X connect 1 0 0 0;
#X connect 2 0 7 0;
#X connect 6 0 4 0;
#X connect 7 0 8 0;
#X connect 7 1 13 0;
#X connect 8 0 0 0;
#X connect 9 0 6 0;
#X connect 13 0 0 1;
#X restore 242 74 pd mode;
#X obj 284 217 + 0;
#X obj 84 238 reduce;
#X obj 241 152 map;
#X obj 79 55 moses 0;
#X obj 10 58 + 12;
#X obj 106 104 % 12;
#N canvas 0 50 450 300 remove-octave-note 0;
#X obj 93 196 list split;
#X obj 155 131 list length;
#X obj 156 166 - 1;
#X obj 107 84 t l l;
#X obj 90 33 inlet;
#X obj 87 250 outlet;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 0 1;
#X connect 3 0 0 0;
#X connect 3 1 1 0;
#X connect 4 0 3 0;
#X restore 210 307 pd remove-octave-note;
#X connect 0 0 11 0;
#X connect 3 0 7 0;
#X connect 5 0 10 0;
#X connect 6 0 5 0;
#X connect 6 1 8 1;
#X connect 7 0 5 1;
#X connect 7 0 10 0;
#X connect 8 0 9 1;
#X connect 9 0 4 0;
#X connect 10 0 9 0;
#X connect 10 1 8 0;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 12 0 11 0;
#X connect 13 0 6 0;
